Option Explicit
Sub N_Sample016()
    Dim mysht As Worksheet
    For Each mysht In Worksheets
        mysht.Name = mysht.Name & "X"
    Next
End Sub